# Simule 1000 eksperimentus
numExperiments <- 1000
total <- 0
for (i in 1:numExperiments) {
  x <- 1:100
  y <- sample(1:100)
  z <- (x == y) 
  zz <- abs(x - y) == 1
  if (sum(z)==0 && sum(zz)==0) { total <- total + 1} 
}
total/numExperiments
